//**********************************************
// .
//**********************************************
program MoveTitle;
const
Title = '{=**3aLyIIa**=}'; //  ,    :)
Character = ''; //  ,     ;
UseTime = true; //  True / False -   /   ;
UseStrings = True; //  True / False -     ;

var
TitleTimer : TTimer;
TitleText : string;
tmp : string;
i : Integer;
StringsTitle : TStrings;
count : Integer;

procedure SetTitle;
begin
TitleTimer.Interval:=200;
StringsTitle.Clear;
//StringsTitle.Add('//=-IIiRoZoK-=\\');
StringsTitle.Add('//=-6a6yH-=\\');
StringsTitle.Add('//=-6a6yH-=\\');
StringsTitle.Add('//=-6a6yH-=\\');
StringsTitle.Add('//=-6a6yH-=\\');
StringsTitle.Add('//=-6a6yH-=\\');
StringsTitle.Add('//=-6a6yH-=\\');
StringsTitle.Add('//=-6a6yH-=\\');
StringsTitle.Add('//=-6a6yH-=\\');
StringsTitle.Add('//=-6a6yH-=\\');
StringsTitle.Add('//=-6a6yH-=\\');
StringsTitle.Add('**********');
StringsTitle.Add('**********');
StringsTitle.Add('**********');
StringsTitle.Add('**********');
StringsTitle.Add('**********');
StringsTitle.Add('PyJIiT');
StringsTitle.Add('PyJIiT');
StringsTitle.Add('PyJIiT');
StringsTitle.Add('PyJIiT');
StringsTitle.Add('PyJIiT');
StringsTitle.Add('PyJIiT');
StringsTitle.Add('PyJIiT');
StringsTitle.Add('PyJIiT');
StringsTitle.Add('PyJIiT');
StringsTitle.Add('Ycek??? :D');
StringsTitle.Add('Ycek??? :D');
StringsTitle.Add('Ycek??? :D');
StringsTitle.Add('Ycek??? :D');
StringsTitle.Add('Ycek??? :D');
StringsTitle.Add('Ycek??? :D');
StringsTitle.Add('Ycek??? :D');
StringsTitle.Add('Ycek??? :D');
StringsTitle.Add('*  *  *  *  *  *');
StringsTitle.Add('* * * * * * * * ');
StringsTitle.Add('*  *  *  *  *  *');
StringsTitle.Add('* * * * * * * * ');
StringsTitle.Add('*  *  *  *  *  *');
StringsTitle.Add('* * * * * * * * ');
StringsTitle.Add('*  *  *  *  *  *');
StringsTitle.Add('* * * * * * * * ');
StringsTitle.Add('*  *  *  *  *  *');
StringsTitle.Add('* * * * * * * * ');
StringsTitle.Add('*  *  *  *  *  *');
StringsTitle.Add('* * * * * * * * ');
StringsTitle.Add('*  *  *  *  *  *');
StringsTitle.Add('* * * * * * * * ');
StringsTitle.Add('*  *  *  *  *  *');
StringsTitle.Add('* * * * * * * * ');
StringsTitle.Add('==||=||=||==||==');
StringsTitle.Add('=||==||==||=||=');
StringsTitle.Add('==||=||=||==||==');
StringsTitle.Add('=||==||==||=||=');
StringsTitle.Add('==||=||=||==||==');
StringsTitle.Add('=||==||==||=||=');
StringsTitle.Add('==||=||=||==||==');
StringsTitle.Add('=||==||==||=||=');
StringsTitle.Add('==||=||=||==||==');
StringsTitle.Add('=||==||==||=||=');
StringsTitle.Add('==||=||=||==||==');
StringsTitle.Add('=||==||==||=||=');
StringsTitle.Add('==||=||=||==||==');
StringsTitle.Add('=||==||==||=||=');
StringsTitle.Add('==||=||=||==||==');
end;

procedure OnTitleTimer(Sender: TObject);
begin
if UseStrings = True then
begin
count:=count + 1;
//count:=count + 79;
//tmp:='=/' + IntToStr(count) + '\=';
tmp:=StringsTitle.Strings[count];
if count=StringsTitle.Count - 1 then
count:=-1;
buf:=#$55;
WriteS(ConnectName);
WriteS(tmp);
SendToServerEx(ConnectName);
end;

if UseStrings = False then
begin
if UseTime = False then
begin
if i=Length(Title) then
i:=0;
i:=i + 1;
tmp:=Copy(Title,i,Length(Title)) + Character + Copy(Title,0,i - 1);
end;

if UseTime = True then
tmp:='*=>>' + TimeToStr(Time) + '<<=*';

buf:=#$55;
WriteS(ConnectName);
WriteS(tmp);
SendToServerEx(ConnectName);
end;
end;

procedure Init;
begin
StringsTitle:=TStringList.Create;
count:=-1;
i:=0;
TitleTimer:=TTimer.Create(nil);
TitleTimer.OnTimer:=@OnTitleTimer;
if UseTime = False then
TitleTimer.Interval:=700;
if UseTime = True then
TitleTimer.Interval:=1001;
SetTitle;
TitleTimer.Enabled:=True;
end;

procedure Free;
begin
TitleTimer.Free;
StringsTitle.Free;
end;

begin

end.

